home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / merge2.scm < prev    next >
Encoding:
Text File  |  1993-05-07  |  408 b   |  12 lines
  1. (define (merge x y test)
  2.         (define tmp y)
  3.         (if (test (car y) (car x))
  4.             (begin (set! x y) (set! y tmp)))
  5.         (do ((x-ptr x (cdr x-ptr))
  6.              (y-ptr y))
  7.             ((or (null? x-ptr) (null? y-ptr)) x)
  8.             (if (test (car y) (car x))
  9.                 (begin (set! tmp (cdr x-ptr))
  10.                        (set-cdr! x-ptr y) 
  11.                        (set! y-ptr tmp)))))
  12.